home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / radio.e < prev    next >
Text File  |  2004-08-03  |  1KB  |  55 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. DEF feelinbase:PTR TO feelinbase
  6.  
  7. PROC main()
  8.    DEF app,win,entries
  9.  
  10.    entries := ['Olivier','Lotan','Haplo','Gofromiel',NIL]
  11.  
  12.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  13.       app := AppObject,
  14.          Child, win := WindowObject,
  15.             FA_Window_Title,  'Feelin : Radio',
  16.             FA_Window_Open,   TRUE,
  17.  
  18.             Child, VGroup,
  19.                Child, RadioObject, GroupFrame, FA_Frame_Title,'Horizontal',
  20.                   FA_Horizontal, TRUE,
  21.                  'FA_Radio_Active', 2,
  22.                  'FA_Radio_Entries', entries,
  23.                   End,
  24.  
  25.                Child, HGroup,
  26.                   Child, RadioObject, GroupFrame, FA_Frame_Title,'Vertical',
  27.                      FA_Horizontal, FALSE,
  28.                     'FA_Radio_PreParse','<align=center>',
  29.                     'FA_Radio_Entries',entries,
  30.                      End,
  31.  
  32.                   Child, RadioObject, GroupFrame, FA_Frame_Title,'Array',
  33.                      FA_Group_Columns, 2,
  34.                     'FA_Radio_Entries',entries,
  35.                      End,
  36.                End,
  37.             End,
  38.          End,
  39.       End
  40.  
  41.       IF app
  42.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE, app, FM_Application_Shutdown,0])
  43.  
  44.          F_DoA(app,FM_Application_Run,NIL)
  45.  
  46.          F_DisposeObj(app)
  47.       ELSE
  48.          PrintF('Unable to create application\n')
  49.       ENDIF
  50.  
  51.       CloseLibrary(feelinbase)
  52.    ENDIF
  53. ENDPROC
  54.  
  55.